home *** CD-ROM | disk | FTP | other *** search
/ Nebula 2 / Nebula Two.iso / Documents / Diagram / UW_Palettes / PCBLayout.dpalette2 / Image52 (.txt) < prev    next >
NeXT TypedStream Data  |  1995-06-12  |  1KB  |  41 lines
  1. typedstream
  2. NXImage
  3. Object
  4. NXEPSImageRep
  5. NXImageRep
  6. iisssss
  7. [922c]%!PS-Adobe-2.0 EPSF-2.0
  8. %%Title:ICPadVertical.eps
  9. %%Creator: Kevin Brain (ksbrain@zeus.UWaterloo.ca)
  10. %%CreationDate: Fri Nov 22 1991
  11. %%Pages: 0 1
  12. %%BoundingBox: 0 0 18 36 
  13. %%DocumentFonts: Times-BoldItalic
  14. %%EndComments
  15. % eps drawing of component for Diagram palette 
  16. % number of pixels per Diagram Grid
  17. /GRIDSIZE 9 def
  18. % one grid represents 0.05 inches
  19. /GRIDSCALE 0.05 def
  20. % multiply sizes in inches by ScaleFactor in pixels/inch 
  21. /SCALEFACTOR {GRIDSIZE GRIDSCALE div mul} def
  22. /OUTERRADIUS {0.03 SCALEFACTOR} def
  23. /HOLERADIUS {0.015 SCALEFACTOR} def
  24. 1 1 scale
  25. 0 setlinewidth
  26. gsave
  27. GRIDSIZE GRIDSIZE 2 mul moveto
  28. OUTERRADIUS 0 rmoveto
  29. 0 OUTERRADIUS rlineto
  30. OUTERRADIUS -1 mul 0 rlineto
  31. currentpoint translate
  32. 0 0 OUTERRADIUS 0 180 arc
  33. 0 OUTERRADIUS -2 mul rlineto
  34. OUTERRADIUS 0 rlineto
  35. currentpoint translate
  36. 0 0 OUTERRADIUS 180 0 arc
  37. closepath
  38. grestore
  39. 1 setgray
  40. GRIDSIZE GRIDSIZE 2 mul HOLERADIUS 0 360 arc fill
  41.